home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / varie / dito33.lha / DITO / Install < prev    next >
Text File  |  1996-08-05  |  2KB  |  73 lines
  1. ; Very simple installer script for DITO 3.3
  2. ; -----------------------------------------
  3.  
  4. (message
  5.    "\nDITO 3.3\n"
  6.    "© Dirk Holtwick, 1996\n"
  7.    "MUI © Stefan Stuntz, 1992-1996\n"
  8.    "TextField © Mark Thomas, 1995\n\n"
  9.    "DITO is a very flexible learning system for "
  10.    "languages. Notice that it is SHAREWARE and that "
  11.    "you have to pay a fee of 20 DM or $15 to the author, if you "
  12.    "want to use it frequently. In the demo version the "
  13.    "configaration can't be saved.\n\n"
  14.    "Enjoy it, Dirk"
  15. )
  16.  
  17. (set destname
  18.    (askdir
  19.       (prompt "Where do you want to install DITO (a directory will be created)")
  20.       (help @askdir-help)
  21.       (default "DITO:")
  22.    )
  23. )
  24.  
  25. (set destname (tackon destname "DITO"))
  26.  
  27. (makedir
  28.    destname
  29.    (infos)
  30. )
  31.  
  32. (copylib
  33.    (prompt "Copying TextField.gadget")
  34.    (help @copylib-help)
  35.    (source "Gadgets/")
  36.    (dest "SYS:Classes/Gadgets/")
  37.    (confirm)
  38. )
  39.  
  40. (copyfiles
  41.    (prompt "Copying all files")
  42.    (help @copyfiles-help)
  43.    (source "")
  44.    (dest destname)
  45.    (all)
  46. )
  47.  
  48. (set name
  49.    (askbool
  50.       (prompt "Install the phonem font?")
  51.       (help "It's up to YOU.")
  52.       (default 0)
  53.    )
  54. )
  55.  
  56. (if name
  57.    (copyfiles
  58.       (prompt "Copying font.")
  59.       (help @copyfiles-help)
  60.       (source "fonts/")
  61.       (dest "fonts:")
  62.       (all)
  63.    )
  64. )
  65.  
  66. (startup "DITO"
  67.    (prompt
  68.       "Some instructions need to be added to the \"S:user-startup\" so that your system will be properly configured to use DITO.")
  69.    (help "No help for this function")
  70.    (command "assign DITO: " destname "\n")
  71. )
  72.  
  73.